Private Sub CommandButton1_Click()

    Dim Ʈ As Control
    Dim Ӹ As Range
    
    Set Ӹ = Range("E2:H2")
    
    Ӹ.Offset(1).ClearContents
        
    For Each Ʈ In UserForm1.Controls
    
        If TypeName(Ʈ) = "CheckBox" Then
        
            If Ʈ.Value = True Then

                Ӹ.Find(What:=Ʈ.Caption).Offset(1).Value = "O"
            
            End If
        
        End If
    
    Next

End Sub